home *** CD-ROM | disk | FTP | other *** search
/ Megahits 3 / Megahits 3 (1994)(GTI - Rhein-Main-Soft)(DE)[!].iso / module / utilities / quadracomposer / qcinstall2.0 < prev    next >
Text File  |  1994-10-14  |  2KB  |  102 lines
  1. ;$VER: QCInstall v1.0
  2. ;By Bo Lincoln 1993
  3. ;This script uses the installer program to install Quadra Composer to
  4. ;your hard drive. 
  5.  
  6. (complete 0)
  7. (welcome)
  8.  
  9. ;Check kickver
  10. (if (< (/ (getversion) 65536) 37)
  11.     (abort ("You must have kickstart 2.0x to use this installation "
  12.         "utility, and to run QuadraComposer 2.0")  
  13.     )
  14. )
  15.  
  16. (message
  17.     ("\nThis program lets you install Quadra Composer to your hard ")
  18.     ("disk drive. If you don't own one, abort installation immediately. ")
  19. )
  20.  
  21. (set sdir (pathonly @icon))
  22. ;Get dir for drawer
  23. (set tdir (askdir (prompt ("Where do you want to install Quadra Composer 2.0?"))
  24.         (help ("Select a drawer where you want to install the ")
  25.         ("Quadra Composer 2.0.\n")
  26.         )
  27.         (default @default-dest)
  28.     )
  29. )
  30. (set @default-dest tdir)
  31.  
  32. (set ans (askbool 
  33.             (
  34.             (prompt "\nDo you want to make a new drawer called QuadraComposer?")
  35.             (help "")
  36.             )
  37.         )
  38. )
  39. (if 
  40.     (= 1 ans)
  41.  
  42.     (
  43.         (makedir (tackon tdir "QuadraComposer") (infos))
  44.         (set tdir (tackon tdir "QuadraComposer"))
  45.     )
  46.  
  47. )
  48. (working ("Copying Quadra Composer"))
  49. ;Copy main program
  50. (copyfiles
  51.     (source (tackon sdir "QuadraComposer"))
  52.     (dest tdir)
  53.     (help @copyfiles-help)
  54.     (infos)
  55. )
  56. ;50%
  57. (complete 70)
  58. (message
  59.     "\nAnd now the fonts, QC 6 & 8, will be copied..."
  60. )
  61. (copyfiles
  62.     (source (tackon sdir "fonts"))
  63.     (all)
  64.     (dest "FONTS:")
  65.     (fonts)
  66.     (help @copyfiles-help)
  67. )
  68. (complete 75)
  69. (message
  70.     "\nSome textfiles are included in this package; manual and replayroutines."
  71.     " They will now be installed..."
  72. )
  73. ;Copy manual
  74. (copyfiles
  75.     (prompt "Select files to copy:")
  76.     (source sdir)
  77.     (dest tdir)
  78.     (help @copyfiles-help)
  79.     (choices
  80.         "QCManual2.0.txt"
  81.         "QCReplay.s"
  82.         "QCFastreplay.s"
  83.     )
  84.     (confirm)
  85.     (infos)
  86. )
  87. (complete 90)
  88. (message
  89.     "\nThis is the last part of this installation. 'reqtools.library' will "
  90.     "be copied to your libs: drawer, if you don't " 
  91.     "already have a later version installed."
  92. )
  93. (copylib
  94.     (prompt "Copying reqtools...")
  95.     (help @copylib-help)
  96.     (source (tackon sdir "libs/reqtools.library"))
  97.     (dest "libs:")
  98.     (confirm)
  99. )
  100. (complete 100)
  101. (exit ("Have fun!"))
  102.